home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / RBASE.DAT < prev    next >
Text File  |  1991-10-01  |  1KB  |  48 lines
  1. Label start
  2. playback macro.key
  3. set color backgrnd blue
  4. OPEN RENT
  5. cls
  6. SET MESSAGES OFF
  7. SET V A TO ""
  8. display cp.dis
  9. write "RBASE.DAT" at 2,36
  10. LABEL BEGIN
  11.    write "RBase System Functions" at 9,29
  12.    WRITE "1........... Select Morning STARTUP Procedure        " AT 11,18
  13.    write "2........... Select RENT Master Program              " at 12,18
  14.    write "3........... Select TRAINS Master Program            " at 13,18
  15.    Write "4........... Exit RBase System V                     " at 14,18
  16.    FILLIN A USING "Enter Selection, <ESC> For Master Menu ->   " AT 16,18
  17.    if a = "" then ; goto fin ; endif
  18.    if a = "1" then ; goto as ; endif
  19.    if a = "2" then ; goto ar ; endif
  20.    if a = "3" then ; goto at ; endif
  21.    if a = "4" then ; goto axr ; endif
  22.    if a = "r" then ; goto fin ; endif
  23.      cls ; goto start
  24. label as
  25.    close
  26.    open rent
  27.    run startup.sab
  28.    goto fin
  29. label ar
  30.    close
  31.    open rent
  32.    run master.sab
  33.    goto fin
  34. label at
  35.   close
  36.   open trains
  37.   run master.trn
  38.   GOTO fin
  39. label axr
  40.   close
  41.   exit
  42. label fin
  43.   cls
  44.   set mes on
  45.   set err mes on
  46.   set bell on
  47.  
  48.